home *** CD-ROM | disk | FTP | other *** search
/ Tiger Disk 167 / Tiger_Disk_167_19xx_Tiger-Crew-Disk_de_Side_B.d64 / alpha [td] (.txt) < prev    next >
Commodore BASIC  |  2023-02-26  |  3KB  |  126 lines
  1. 1 rem distributed by zypher innovations
  2. 2 poke53280,0:poke53281,0:print"[147][158]       e r k l a e r u n g (j/n) ?"
  3. 3 getxy$:ifxy$=""then3
  4. 4 ifxy$="n"then100
  5. 5 print"[147]dieses spiel ist ein 'memory'-spiel.    du hast auf einer tafel die"
  6. 6 print"verdeckten buchstaben des aphabets."
  7. 7 print"mit dem joystick in port 2 waehlst du   das feld, das du sehen willst."
  8. 8 print"wenn du den gesuchten buchstaben gefun- den hast, drueck' den feuerknopf."
  9. 9 print"merk' dir die buchstaben, die du siehst - du hast nicht unbegrenzt zeit!"
  10. 10 print"zum spielbeginn drueck'  s p a c e [146] !"
  11. 11 sys58592
  12. 100 sd=54272:fori=sdtosd+24:pokei,0:next:pokesd+5,26:pokesd+6,191:poke54296,15
  13. 110 sm=1280:cl=54272:q1=1905:q2=1227
  14. 120 hs=0:jc=56320
  15. 130 cr$=chr$(19):fori=1to23:cr$=cr$+chr$(17):next:poke53281,1
  16. 140 fori=1to7
  17. 150 printchr$(31)chr$(147)left$(cr$,9)spc(12)"alpha anxiety"
  18. 160 forj=1to50:next
  19. 170 printchr$(31)chr$(147)left$(cr$,9)spc(12)"alpha anxiety"
  20. 180 forj=1to100:nexti
  21. 190 dimp%(25),rl%(5,5)
  22. 200 gosub1150
  23. 210 rf=0:at=0
  24. 220 dl=150
  25. 230 sc=0:ma=3
  26. 240 l1=1:l2=1:lc=1:fl=1:po=sm:fg=0
  27. 250 ifrf=1thenlc=25
  28. 260 printchr$(147)
  29. 270 print""tab(15)"[144][176][192][178][192][178][192][178][192][178][192][174]"
  30. 280 fori=1to4:printtab(15)"[221] [146][221] [146][221] [146][221] [146][221] [146][221]":printtab(15)"[171][192][219][192][219][192][219][192][219][192][179]"
  31. 290 next:printtab(15)"[221] [146][221] [146][221] [146][221] [146][221] [146][221]"
  32. 300 printtab(15)"[173][192][177][192][177][192][177][192][177][192][189]"
  33. 310 print"ges.":print"buchst:":print"[176][192][174]":print"[221] [221]":print"[173][192][189]"
  34. 320 print"zeit:":print"score:":print""sc:
  35. 330 print"high":print"score:"
  36. 340 print"";hs
  37. 350 ifsc<2499thenpokeq2+cl,6:pokeq2,lc
  38. 360 fori=q1+cltoq1+cl+26:pokei,0:next
  39. 370 ti$="000000":cs=160
  40. 380 gosub530
  41. 390 iffg=1then240
  42. 400 ifma=0then450
  43. 410 pokesd+4,17:pokesd+1,0
  44. 420 tl=dl-int(ti/60)
  45. 430 printleft$(cr$,11)spc(2)tl"[157]  "
  46. 440 iftl>0then380
  47. 450 ifsc>hsthenhs=sc
  48. 460 printnt"[147]               game over"
  49. 470 print"         drueck' > feuer < fuer"
  50. 480 print"             noch ein spiel"
  51. 490 pokesd+1,85:fori=1to400:next:pokesd+1,0:gosub1150
  52. 500 a=notpeek(jc)and16:ifa=0then500
  53. 510 printchr$(147):fort=1to500:next
  54. 520 goto210
  55. 530 p=notpeek(jc)and31
  56. 540 je=(p=8)
  57. 550 js=(p=2)
  58. 560 jw=(p=4)
  59. 570 jn=(p=1)
  60. 580 jf=(p=16)
  61. 590 th=po:t1=l1:t2=l2
  62. 600 ifjfthengosub740:goto670
  63. 610 ifjethenpo=po+2:l1=l1+1:fl=1
  64. 620 ifjsthenpo=po+80:l2=l2+1:fl=1
  65. 630 ifjwthenpo=po-2:l1=l1-1:fl=1
  66. 640 ifjnthenpo=po-80:l2=l2-1:fl=1
  67. 660 pokesd+1,50
  68. 670 iffg=1then730
  69. 680 ifpo<smorpo>sm+376thenpo=th:l1=t1:l2=t2
  70. 690 ifpeek(po+1)=32orpeek(po-1)=32thenpo=th:l1=t1:l2=t2
  71. 700 poketh+cl,0:poketh,cs:cs=peek(po)
  72. 710 pokepo+cl,2:pokepo,rl%(l1,l2)
  73. 720 fl=0
  74. 730 return
  75. 740 ifrl%(l1,l2)=lcthensc=sc+10:goto780
  76. 750 ifrf=1then860
  77. 760 ifrl%(l1,l2)<lcthen900
  78. 770 goto860
  79. 780 pokesd+1,100:fort=1to25:next:pokesd+1,0
  80. 790 ifrf=1thenpokeq1+26-lc,lc:goto810
  81. 800 pokeq1+lc,lc
  82. 810 ifrf=1thenlc=lc-1:goto830
  83. 820 lc=lc+1
  84. 830 ifsc>2500then850
  85. 840 iflc<>0thenpokeq2,lc
  86. 850 cs=rl%(l1,l2):goto890
  87. 860 pokesd+1,20:fort=1to30:next:pokesd+1,0
  88. 870 dl=dl-10:ifdl<=0thengoto460
  89. 880 return
  90. 890 printleft$(cr$,15)spc(2)sc"[157]  "
  91. 900 ifrf=0then930
  92. 910 iflc<>0then1140
  93. 920 goto940
  94. 930 iflc<>26then1140
  95. 940 ifsc>5000then1000
  96. 950 at=at+dl-tl
  97. 960 ifsc=5000thendl=int(at/20):goto1050
  98. 970 iftl<150thendl=40+tl*2:goto1050
  99. 980 iftl>300thendl=tl*.5:goto1050
  100. 990 dl=tl
  101. 1000 ifsc=6000thendl=dl-5
  102. 1010 ifsc=7000thendl=dl-5
  103. 1020 ifsc=8000thendl=dl-5
  104. 1030 ifsc=9000thendl=dl-5
  105. 1040 ifsc=10000thendl=dl-5
  106. 1050 h=sd+1:l=sd:pokeh,8:pokel,97:gosub1080
  107. 1060 pokeh,12:pokel,143:gosub1080:pokeh,14:pokel,24:gosub1080
  108. 1070 pokeh,12:pokel,143:pokesd+4,17:fori=1to800:nexti:pokeh,0:pokel,0:goto1110
  109. 1080 pokesd+4,17:fori=1to200:next:pokesd+4,16:fori=1to100:next
  110. 1090 pokesd+4,17:fori=1to200:next:pokesd+4,16:fori=1to100:next
  111. 1100 return
  112. 1110 ifsc>1250thenrf=1
  113. 1120 gosub1150
  114. 1130 fg=1
  115. 1140 return
  116. 1150 fori=1to25:p%(i)=i:next
  117. 1160 fori=1to5
  118. 1170 forj=1to5
  119. 1180 r=int(rnd(1)*25+1)
  120. 1190 ifp%(r)=0then1180
  121. 1200 rl%(i,j)=r
  122. 1210 p%(r)=0
  123. 1220 nextj
  124. 1230 nexti
  125. 1240 return
  126.